﻿Imports BusinessLayer
Imports EntityLayer
Imports System.Data

Partial Class VistaCotizacion
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ListarProveedor()
            Dim intNumCotizacion As Integer
            intNumCotizacion = CInt(Request.QueryString("strCodigo"))

            Dim dt As DataTable
            dt = CotizacionBL.ListarxCodigo(intNumCotizacion).Tables(0)

            txtNumero.Text = dt.Rows(0)("NumeroCotizacion").ToString
            txtFecha.Text = dt.Rows(0)("FechaEmision").ToString
            ddlFormaPago.SelectedValue = dt.Rows(0)("FormaPago").ToString
            ddlVigencia.SelectedValue = dt.Rows(0)("Vigencia").ToString
            txtPlazoEntrega.Text = dt.Rows(0)("PlazoEntrega").ToString
            txtContacto.Text = dt.Rows(0)("Contacto").ToString
            txtBanco.Text = dt.Rows(0)("Banco").ToString
            txtNumeroCuenta.Text = dt.Rows(0)("NumeroCuenta").ToString
            txtNumeroCompra.Text = dt.Rows(0)("NumeroCompra").ToString
            ddlProveedor.SelectedValue = dt.Rows(0)("Codigo").ToString
            ddlEstado.SelectedValue = dt.Rows(0)("Estado").ToString
            dgDatos.DataSource = DetalleCotizacionBL.ListarxCodigo(intNumCotizacion)
            dgDatos.DataBind()

        End If
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("ListaCotizacion.aspx")
    End Sub

    Private Sub ListarProveedor()
        ddlProveedor.DataSource = ProveedorBL.ListarTodo()
        ddlProveedor.DataTextField = "RazonSocial"
        ddlProveedor.DataValueField = "Codigo"
        ddlProveedor.DataBind()
    End Sub

End Class
